
Public Class Pallets
    Dim ADPal As New ADCono.Pallets

    Public Function GenerarPallet(ByVal CodINP, ByVal Fec, ByVal Can, ByVal Obs)
        Dim DS As DataSet
        DS = ADPal.GenerarPallet(CodINP, Fec, Can, Obs)
        Return DS
    End Function

    Public Function ObtenerPallets(ByVal ParamArray Dat() As String)
        Dim DS As DataSet
        DS = ADPal.ObtenerPallets(Dat(0), Dat(1))
        Return DS
    End Function

    Public Function ModificarPallet(ByVal ParamArray Dat() As String)
        Dim DS As DataSet
        DS = ADPal.ModificarPallet(dat(0), dat(1), dat(2), dat(3), dat(4))
        Return DS
    End Function

    Public Function ObtenerPalletsPorCodNP(ByVal CodNP As Integer)
        Return ADPal.ObtenerPalletsPorCodNP(CodNP)
    End Function

End Class
